Function TotalMonths(Const Date:TimeDate):LongInt;

    This returns the total number of  months  that have passed (including
    the current month) since the year 0 (to the date in Date).

    Example

    Date := 6/3/2
    TotalMonths(Date) = 2 * 12 + 3 = 26